home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / demovers / scripter / demo / gif.sic < prev    next >
Text File  |  1998-09-26  |  976b  |  43 lines
  1. /*
  2.  * Dieser Script gibt Information zu den übergebenen GIF-Bildern aus
  3.  */
  4.  
  5. proc main(...)
  6. {
  7.     if (argc == 0) {
  8.         dialog.note("gif.sic:",
  9.                     "Dieser Script gibt Infos zu allen",
  10.                     "GIF-Bildern aus, die als Parameter",
  11.                     "übergeben wurden.", "-b", "-bAchso");
  12.         exit(1);
  13.     }
  14.  
  15.  
  16.     i = 0;
  17.     while (i < argc) {
  18.         file = argv[i++];
  19.  
  20.         read(file, 6, a, 1);    // 6 Bytes aus der Datei lesen
  21.         str = pack(a);        // und in einen String umwandeln
  22.  
  23.         if (str == "GIF87a" || str == "GIF89a") {
  24.             print(file, ":\n   Version = ", str);
  25.             read(file, 4, a, 1);
  26.             printf("   Bild ist %dx%d Pixel groß\n",
  27.                     a[0] + 256 * a[1],
  28.                     a[2] + 256 * a[3]);
  29.             read(file, 2, a, 1);
  30.             t = (a[0] & 15) + 1;
  31.             printf("   Bits per Pixel: %d [%d Farben]\n", t, 1<<t);
  32.             printf("   Planes: %d\n", ((a[0]>>4) & 7)+1);
  33.             if (a[0] & 128) print("   Bild hat Palette");
  34.             printf("   Hintergrundfarbe ist %d\n", a[1]);
  35.         }
  36.         else {
  37.             printf("%s ist kein GIF-Bild\n", file);
  38.         }
  39.  
  40.         fclose(file);
  41.     }
  42. }
  43.